﻿Imports ESRI.ArcGIS.Geodatabase
Imports ESRI.ArcGIS.Geometry

Public Class PointForm
    Private _workspace As Workspace
    Public Sub setGeometry(ByVal geometry As IGeometry)
        If geometry IsNot Nothing And TryCast(geometry, IPoint) IsNot Nothing Then
            lat.Text = TryCast(geometry, IPoint).X
            lon.Text = TryCast(geometry, IPoint).Y

        End If
    End Sub

    Public Sub setWorkspace(ByVal workspace As Workspace)
        _workspace = workspace
    End Sub
    Private Sub btnSetCoord_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSetCoord.Click
        Try
            If _workspace IsNot Nothing Then
                _workspace.setCoordonne(lat.Text, lon.Text)
            End If
        Catch ex As Exception

        End Try
       
    End Sub
End Class
